﻿Module Module1
  Sub Main()

    Dim NL As String = Environment.NewLine
    Dim messaggio As String = ""
    Dim dir As System.IO.DriveInfo
    dir = My.Computer.FileSystem.GetDriveInfo("C:\")
    messaggio &= ("Etichetta volume: " &
        dir.VolumeLabel & NL)
    messaggio &= ("Nome logico: " & dir.Name &
        Environment.NewLine)
    messaggio &= ("Dimensione totale: " &
        dir.TotalSize & NL)
    messaggio &= ("Spazio libero disponibile: " &
        dir.AvailableFreeSpace & NL)
    messaggio &= ("Disco pronto: " & dir.IsReady &
        Environment.NewLine)
    Console.WriteLine(messaggio)
    Console.ReadLine()

  End Sub
End Module
